// starting begin PrepareBase ;
   0: CALL 323 0 0
// SetBName ( depo , east ) ;
   4: LD_INT 10
   6: PPUSH
   7: LD_STRING east
   9: PPUSH
  10: CALL_OW 500
// ingameon ;
  14: CALL_OW 8
// centeronunits ( eon ) ;
  18: LD_INT 14
  20: PPUSH
  21: CALL_OW 85
// ComEnterUnit ( maniek , lab1 ) ;
  25: LD_INT 153
  27: PPUSH
  28: LD_INT 8
  30: PPUSH
  31: CALL_OW 120
// ComTurnXY ( [ Szakal , Dragon , Lesiu , Fajfer ] , 76 , 34 ) ;
  35: LD_INT 159
  37: PUSH
  38: LD_INT 156
  40: PUSH
  41: LD_INT 148
  43: PUSH
  44: LD_INT 150
  46: PUSH
  47: EMPTY
  48: LIST
  49: LIST
  50: LIST
  51: LIST
  52: PPUSH
  53: LD_INT 76
  55: PPUSH
  56: LD_INT 34
  58: PPUSH
  59: CALL_OW 118
// Say ( lesiu , d1 ) ;
  63: LD_INT 148
  65: PPUSH
  66: LD_STRING d1
  68: PPUSH
  69: CALL_OW 88
// Say ( Fajfer , d2 ) ;
  73: LD_INT 150
  75: PPUSH
  76: LD_STRING d2
  78: PPUSH
  79: CALL_OW 88
// Say ( lesiu , d4 ) ;
  83: LD_INT 148
  85: PPUSH
  86: LD_STRING d4
  88: PPUSH
  89: CALL_OW 88
// Sayradio ( maniek , d5 ) ;
  93: LD_INT 153
  95: PPUSH
  96: LD_STRING d5
  98: PPUSH
  99: CALL_OW 94
// Say ( Lesiu , d6 ) ;
 103: LD_INT 148
 105: PPUSH
 106: LD_STRING d6
 108: PPUSH
 109: CALL_OW 88
// Sayradio ( lesiu , d7 ) ;
 113: LD_INT 148
 115: PPUSH
 116: LD_STRING d7
 118: PPUSH
 119: CALL_OW 94
// Sayradio ( lesiu , d8 ) ;
 123: LD_INT 148
 125: PPUSH
 126: LD_STRING d8
 128: PPUSH
 129: CALL_OW 94
// Say ( Fajfer , d9 ) ;
 133: LD_INT 150
 135: PPUSH
 136: LD_STRING d9
 138: PPUSH
 139: CALL_OW 88
// SaveCharacters ( szakal , szakal ) ;
 143: LD_INT 159
 145: PPUSH
 146: LD_STRING szakal
 148: PPUSH
 149: CALL_OW 38
// SaveCharacters ( Lesiu , Lesiu ) ;
 153: LD_INT 148
 155: PPUSH
 156: LD_STRING Lesiu
 158: PPUSH
 159: CALL_OW 38
// SaveCharacters ( Fajfer , Fajfer ) ;
 163: LD_INT 150
 165: PPUSH
 166: LD_STRING Fajfer
 168: PPUSH
 169: CALL_OW 38
// ComExitBuilding ( [ Maniek , q1 , q2 , q3 , q4 , q5 , q6 , q7 ] ) ;
 173: LD_INT 153
 175: PUSH
 176: LD_EXP 1
 180: PUSH
 181: LD_EXP 2
 185: PUSH
 186: LD_EXP 3
 190: PUSH
 191: LD_EXP 4
 195: PUSH
 196: LD_EXP 5
 200: PUSH
 201: LD_EXP 6
 205: PUSH
 206: LD_EXP 7
 210: PUSH
 211: EMPTY
 212: LIST
 213: LIST
 214: LIST
 215: LIST
 216: LIST
 217: LIST
 218: LIST
 219: LIST
 220: PPUSH
 221: CALL_OW 122
// AddComEnterUnit ( [ Maniek , q1 , q2 , q3 , q4 , q5 , q6 , q7 ] , Eon ) ;
 225: LD_INT 153
 227: PUSH
 228: LD_EXP 1
 232: PUSH
 233: LD_EXP 2
 237: PUSH
 238: LD_EXP 3
 242: PUSH
 243: LD_EXP 4
 247: PUSH
 248: LD_EXP 5
 252: PUSH
 253: LD_EXP 6
 257: PUSH
 258: LD_EXP 7
 262: PUSH
 263: EMPTY
 264: LIST
 265: LIST
 266: LIST
 267: LIST
 268: LIST
 269: LIST
 270: LIST
 271: LIST
 272: PPUSH
 273: LD_INT 14
 275: PPUSH
 276: CALL_OW 180
// ComEnterUnit ( [ Szakal , Dragon , Lesiu , Fajfer ] , EON ) ;
 280: LD_INT 159
 282: PUSH
 283: LD_INT 156
 285: PUSH
 286: LD_INT 148
 288: PUSH
 289: LD_INT 150
 291: PUSH
 292: EMPTY
 293: LIST
 294: LIST
 295: LIST
 296: LIST
 297: PPUSH
 298: LD_INT 14
 300: PPUSH
 301: CALL_OW 120
// wait ( 0 0$5 ) ;
 305: LD_INT 175
 307: PPUSH
 308: CALL_OW 67
// Changemap ( %_cont , %_cont ) ;
 312: LD_STRING %_cont
 314: PPUSH
 315: LD_STRING %_cont
 317: PPUSH
 318: CALL_OW 340
// end ;
 322: END
// export q1 , q2 , q3 , q4 , q5 , q6 , q7 ; export function PrepareBase ; var nat ; begin
 323: LD_INT 0
 325: PPUSH
 326: PPUSH
// uc_nation = 1 ;
 327: LD_ADDR_OWVAR 21
 331: PUSH
 332: LD_INT 1
 334: ST_TO_ADDR
// uc_side = 8 ;
 335: LD_ADDR_OWVAR 20
 339: PUSH
 340: LD_INT 8
 342: ST_TO_ADDR
// hc_class = 2 ;
 343: LD_ADDR_OWVAR 28
 347: PUSH
 348: LD_INT 2
 350: ST_TO_ADDR
// q1 = CreateHuman ;
 351: LD_ADDR_EXP 1
 355: PUSH
 356: CALL_OW 44
 360: ST_TO_ADDR
// q2 = CreateHuman ;
 361: LD_ADDR_EXP 2
 365: PUSH
 366: CALL_OW 44
 370: ST_TO_ADDR
// q3 = CreateHuman ;
 371: LD_ADDR_EXP 3
 375: PUSH
 376: CALL_OW 44
 380: ST_TO_ADDR
// PlaceHumanInUnit ( q1 , depot1 ) ;
 381: LD_EXP 1
 385: PPUSH
 386: LD_INT 9
 388: PPUSH
 389: CALL_OW 52
// PlaceHumanInUnit ( q2 , depo ) ;
 393: LD_EXP 2
 397: PPUSH
 398: LD_INT 10
 400: PPUSH
 401: CALL_OW 52
// PlaceHumanInUnit ( q3 , depot3 ) ;
 405: LD_EXP 3
 409: PPUSH
 410: LD_INT 11
 412: PPUSH
 413: CALL_OW 52
// hc_class = 1 ;
 417: LD_ADDR_OWVAR 28
 421: PUSH
 422: LD_INT 1
 424: ST_TO_ADDR
// q4 = CreateHuman ;
 425: LD_ADDR_EXP 4
 429: PUSH
 430: CALL_OW 44
 434: ST_TO_ADDR
// q5 = CreateHuman ;
 435: LD_ADDR_EXP 5
 439: PUSH
 440: CALL_OW 44
 444: ST_TO_ADDR
// q6 = CreateHuman ;
 445: LD_ADDR_EXP 6
 449: PUSH
 450: CALL_OW 44
 454: ST_TO_ADDR
// q7 = CreateHuman ;
 455: LD_ADDR_EXP 7
 459: PUSH
 460: CALL_OW 44
 464: ST_TO_ADDR
// PlaceHumanInUnit ( q4 , arm1 ) ;
 465: LD_EXP 4
 469: PPUSH
 470: LD_INT 147
 472: PPUSH
 473: CALL_OW 52
// PlaceHumanInUnit ( q5 , arm1 ) ;
 477: LD_EXP 5
 481: PPUSH
 482: LD_INT 147
 484: PPUSH
 485: CALL_OW 52
// PlaceHumanInUnit ( q6 , arm2 ) ;
 489: LD_EXP 6
 493: PPUSH
 494: LD_INT 13
 496: PPUSH
 497: CALL_OW 52
// PlaceHumanInUnit ( q7 , arm2 ) ;
 501: LD_EXP 7
 505: PPUSH
 506: LD_INT 13
 508: PPUSH
 509: CALL_OW 52
// end ;
 513: LD_VAR 0 1
 517: RET
